home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PPC1B3AA.ZIP / MOVETO_.PPS < prev    next >
Encoding:
Text File  |  1996-07-30  |  231 b   |  16 lines
  1. ; Demonstration of the MoveTo procedure (library MOVETO.LIB)
  2.  
  3. #ppe
  4. #libpath ..\..\lib
  5. #use moveto
  6.  
  7. Int X, Y
  8.  
  9. While (Inkey() = "") Do
  10.     Y = Random(22)+1
  11.     X = Random(78)+1
  12.     MoveTo(X, Y)
  13.     Print "X"
  14. Endwhile
  15.  
  16.